Option Explicit
Sub C_Sample034()
    Dim mySht As Worksheet
    Dim i     As Long
    Set mySht = Worksheets.Add(After:=Sheets(Sheets.Count))
    With mySht
        On Error Resume Next
        .Name = "NewName"				']wW
        Do While Err.Number <> 0
            Err.Clear
            i = i + 1

            .Name = "NewName (" & i & ")"		'bW[s
        Loop
        On Error GoTo 0
    End With
    Set mySht = Nothing					'
End Sub
